home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.4 Applications 1997 August / SGI IRIX 6.4 Applications 1997 August.iso / dist / mmailp.idb / usr / lib / Zmail / bin / audiosend.z / audiosend
Encoding:
Text File  |  1997-01-22  |  2.8 KB  |  110 lines
  1. #!/bin/csh -fb
  2. # (The "-fb" might need to be changed to "-f" on some systems)
  3. #
  4. # Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
  5. # 
  6. # Permission to use, copy, modify, and distribute this material 
  7. # for any purpose and without fee is hereby granted, provided 
  8. # that the above copyright notice and this permission notice 
  9. # appear in all copies, and that the name of Bellcore not be 
  10. # used in advertising or publicity pertaining to this 
  11. # material without the specific, prior written permission 
  12. # of an authorized representative of Bellcore.  BELLCORE 
  13. # MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
  14. # OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
  15. # WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  16. #
  17.  
  18. if (! $?METAMAIL_TMPDIR) then
  19.     set METAMAIL_TMPDIR=/tmp
  20. endif
  21.  
  22. # This is to make metamail/showaudio do playback on the speaker, not the phone.
  23. setenv AUDIOSPEAKERFORCE 1 
  24.  
  25. if (-d /usr/sony) then
  26.     set dev=/dev/sb0
  27. else
  28.     set dev=/dev/audio
  29. endif
  30.  
  31. if ( $#argv == 1 ) then
  32.     set to = $1
  33. else
  34.     echo -n "To: "
  35.     set to = $<
  36. endif
  37. echo -n "Subject: "
  38. set subject = $<
  39. echo -n "CC: "
  40. set cc = $<
  41.  
  42. record:
  43. echo -n "Press RETURN when you are ready to start recording: "
  44. set foo = $<
  45.  
  46. set fname = ${METAMAIL_TMPDIR}/a-out.$$
  47. set fnameraw = ${METAMAIL_TMPDIR}/a-raw.$$
  48.  
  49. echo "To: " "$to" > $fname
  50. echo "Subject: " "$subject" >> $fname
  51. echo "CC: " "$cc" >> $fname
  52. echo "MIME-Version: 1.0" >> $fname
  53. echo "Content-Type: audio/basic" >> $fname
  54. echo "Content-Transfer-Encoding: base64" >> $fname
  55. echo  "" >> $fname
  56. # THIS IS UNBELIEVABLY GRUBBY
  57. onintr cleanup
  58. if (! $?RECORD_AUDIO) then
  59.     (/bin/cat < $dev > $fnameraw) &
  60. else
  61.     ($RECORD_AUDIO > $fnameraw) &
  62. endif
  63. jobs -l > ${METAMAIL_TMPDIR}/AUDCAT.$$
  64. set foo=`/bin/cat ${METAMAIL_TMPDIR}/AUDCAT.$$`
  65. /bin/rm ${METAMAIL_TMPDIR}/AUDCAT.$$
  66. set PID=$foo[2]
  67. echo -n "press RETURN when you are done recording: "
  68. set foo=$<
  69. echo One moment please...
  70. /bin/sleep 1
  71. echo -n Killing recording job...
  72. /bin/kill -9 $PID >& /dev/null
  73. mimencode -b < $fnameraw >> $fname
  74. /bin/rm $fnameraw
  75. echo "" >> $fname
  76.  
  77. whatnext:
  78. echo ""
  79. echo "What do you want to do?"
  80. echo ""
  81. echo "1 -- Send mail"
  82. echo "2 -- Listen to recorded message"
  83. echo "3 -- Replace with a new recording"
  84. echo "4 -- Quit"
  85. set which = $<
  86.     switch ("$which")
  87.         case 1:
  88.           echo -n "Sending mail, please wait...  "
  89.           /usr/lib/sendmail $to  $cc < $fname
  90.           if (! $status) then
  91.             echo "Done."
  92.             rm $fname
  93.             exit
  94.           else
  95.             echo Mail delivery failed, draft mail is in $fname
  96.           endif
  97.           breaksw
  98.         case 2:
  99.           metamail -d $fname
  100.           breaksw
  101.         case 3:
  102.           goto record
  103.         case 4:
  104.           exit
  105.     endsw
  106. goto whatnext
  107. exit 0
  108. cleanup:
  109. kill -9 $PID >& /dev/null
  110.